home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / madtrb31.arc / SAMPDIR.PAS < prev    next >
Pascal/Delphi Source File  |  1985-05-17  |  2KB  |  56 lines
  1. PROGRAM SAMPGET;
  2. {
  3.     This TURBO PASCAL program is used to show how to use the $INCLUDE
  4.     file GETDIR.PAS.   These include file is a re-work of one found in
  5.     Borland's Sig database on Compuserve written by Jim McCarthy,
  6.     Technical Support at Borland.   It is specific to PCDos or MSDos
  7.     2.0 or higher for the IBM/PC/XT or BIOS compatable.
  8. }
  9. VAR
  10.     Mask    :   String[80];
  11.     filename :  string[80];
  12.     done    :   boolean;
  13.     error   :   integer;
  14.     online  :   integer;
  15.     i       :   integer;
  16.  
  17. {$I GetDir.PAS}
  18.  
  19. procedure printname(filename:string80);
  20. begin
  21.    write(filename); write(copy('              ',1,14-length(filename)));
  22.    online:=online+1;
  23.    if online = 5 then
  24.       begin
  25.       writeln;
  26.       online:=0;
  27.       end;
  28. end;
  29.  
  30. BEGIN
  31.    online:=0; error:=0;
  32.    DirSetup('INIT',error);
  33.    done:=false;
  34.    if error <> 0 then done:= true;
  35.    While not done do
  36.      BEGIN
  37.        Write('Enter mask:');
  38.        Readln(Mask);
  39.        writeln(mask);
  40.        If Mask = '' then done := true;
  41.        if not done then dirget('FIRST',mask,filename,31,error);
  42.        if error <> 0 then done:= true;
  43.        if not done then printname(filename);
  44.        while error = 0 do
  45.          BEGIN
  46.            dirget('NEXT',mask,filename,31,error);
  47.            if error <> 0 then done:= true;
  48.            if not done then printname(filename);
  49.          END;
  50.      END;
  51.      writeln;
  52.      write ('last error was:'); writeln(error);
  53.      DirSetup('FINISH',error);
  54.      write('setup err:'); writeln(error);
  55. END.
  56.